
file$pattern.DC.con=""
file[file$DC.con.FDR<0.1&file$DC.con.beta0<0,]$pattern.DC.con="con_down"
file[file$DC.con.FDR<0.1&file$DC.con.beta0>0,]$pattern.DC.con="con_up"
file[file$DC.con.FDR>0.1,]$pattern.DC.con="con_nosig"

file$pattern.DC.case=""
file[file$DC.case.FDR<0.1&file$DC.case.beta0<0,]$pattern.DC.case="case_down"
file[file$DC.case.FDR<0.1&file$DC.case.beta0>0,]$pattern.DC.case="case_up"
file[file$DC.case.FDR>0.1,]$pattern.DC.case="case_nosig"

file1=file[file$BF_in_DC>1,]

table(file1$pattern.DC.beta0)

 con_down:case_down con_down:case_nosig    con_down:case_up con_nosig:case_down   con_nosig:case_up 
                 30                  76                 140                   2                 189 
   con_up:case_down   con_up:case_nosig      con_up:case_up 
                 45                  95                 230 
				 
				 